home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / DEBUG / DTRACE32 / UNOTRACE.PAS < prev    next >
Pascal/Delphi Source File  |  1996-09-24  |  2KB  |  56 lines

  1. unit UNoTrace;
  2. interface
  3. type
  4.     TDebugSeverity = (cNone,cInfo,cWarning,cError);
  5.  
  6. procedure Assert(Condition : Boolean;TheText : String);
  7. procedure AssertFmt(Condition : Boolean;TheFormat : String;const Args: Array of const);
  8. procedure DebugDump(TheText : String;Address : Pointer;Count : Integer);
  9. procedure Debug(TheSeverity : TDebugSeverity;TheText : String);
  10. procedure DebugFmt(TheSeverity : TDebugSeverity;TheFormat : String;const Args: Array of const);
  11. procedure DebugInfo(TheText : String);
  12. procedure DebugInfoFmt(TheFormat : String;const Args: Array of const);
  13. procedure DebugWarn(TheText : String);
  14. procedure DebugWarnFmt(TheFormat : String;const Args: Array of const);
  15. procedure DebugErr(TheText : String);
  16. procedure DebugErrFmt(TheFormat : String;const Args: Array of const);
  17.  
  18. implementation
  19. {$StackFrames On}
  20. {$DebugInfo Off}
  21. procedure Assert(Condition : Boolean;TheText : String);
  22. begin
  23. end;
  24. procedure AssertFmt(Condition : Boolean;TheFormat : String;const Args: Array of const);
  25. begin
  26. end;
  27. procedure DebugDump(TheText : String;Address : Pointer;Count : Integer);
  28. begin
  29. end;
  30. procedure DebugInfo(TheText : String);
  31. begin
  32. end;
  33. procedure DebugInfoFmt(TheFormat : String;const Args: Array of const);
  34. begin
  35. end;
  36. procedure DebugWarn(TheText : String);
  37. begin
  38. end;
  39. procedure DebugWarnFmt(TheFormat : String;const Args: Array of const);
  40. begin
  41. end;
  42. procedure DebugErr(TheText : String);
  43. begin
  44. end;
  45. procedure DebugErrFmt(TheFormat : String;const Args: Array of const);
  46. begin
  47. end;
  48. procedure DebugFmt(TheSeverity : TDebugSeverity;TheFormat : String;const Args: Array of const);
  49. begin
  50. end;
  51. procedure Debug(TheSeverity : TDebugSeverity;TheText : String);
  52. begin
  53. end;
  54.  
  55. end.
  56.